home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / cs22.d81 / dISK wANDLER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  623 b   |  17 lines
  1. 1 POKE53280,0:POKE53281,0:PRINT"[147][155]"TAB(14)"[196]ISKWANDLER"TAB(98)"AV"
  2. 2 PRINTTAB(9)"[200]ANS-[202]UERGEN [218]IETMANN"TAB(160)"[204]AGG I EN [199][197][207][211]-DISKETT"
  3. 3 PRINTTAB(40)"OCH TRYCK PA EN TANGENT":WAIT203,64,64:OPEN1,8,15,"I"
  4. 4 OPEN2,8,2,"#":PRINT#1,"U1 2 0 18 0":PRINT#1,"B-P 2 189":GET#2,A$
  5. 5 A=ASC(A$+CHR$(0)):IFA=66THENPRINT"[211]YSTEM-DISKETT   [146]"
  6. 6 IFA=80THENPRINT"[193]PPLIKATIONSDISK [146]"
  7. 7 IFA=0THENPRINT"[193]RBETS-DISKETT   [146]"
  8. 8 PRINTTAB(40)"[211][146]YSTEMDISKETT"TAB(80)"A[208][146]PLIKATIONSDISKETT"
  9. 9 PRINTTAB(40)"[193][146]RBETSDISKETT"TAB(80)"[203][146]LAR"
  10. 10 GETB$:IFB$="S"THENA=66:GOTO15
  11. 11 IFB$="P"THENA=80:GOTO15
  12. 12 IFB$="A"THENA=0:GOTO15
  13. 13 IFB$="K"THENCLOSE2:CLOSE1:END
  14. 14 GOTO10
  15. 15 PRINT#1,"M-W"CHR$(189)CHR$(5)CHR$(1)CHR$(A)
  16. 16 PRINT#1,"U2 2 0 18 0":CLOSE2:GOTO4
  17.